home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / lang / fpc09905c.lha / fpc / inc / heaph.inc < prev    next >
Text File  |  1998-09-21  |  2KB  |  51 lines
  1. {
  2.     $Id: heaph.inc,v 1.5 1998/07/02 14:11:30 michael Exp $
  3.     This file is part of the Free Pascal run time library.
  4.     Copyright (c) 1993,97 by the Free Pascal development team
  5.  
  6.     See the file COPYING.FPC, included in this distribution,
  7.     for details about the copyright.
  8.  
  9.     This program is distributed in the hope that it will be useful,
  10.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  11.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  12.  
  13.  **********************************************************************}
  14.  
  15.  
  16. Procedure release(var p : pointer);
  17. Procedure mark(var p : pointer);
  18. Procedure markheap(var oldfreelist,oldheapptr : pointer);
  19. Procedure releaseheap(oldfreelist,oldheapptr : pointer);
  20. Function  cal_memavail : longint;
  21. Function  heapsize : longint;
  22. {$ifdef TEMPHEAP}
  23.   Procedure split_heap;
  24.   Procedure switch_to_base_heap;
  25.   Procedure switch_to_temp_heap;
  26.   Procedure switch_heap;
  27.   Procedure releasetempheap;
  28.   Procedure gettempmem(var p : pointer;size : longint);
  29. {$endif TEMPHEAP}
  30.  
  31. const
  32.   allow_special : boolean =true;
  33.   heapblocks    : boolean=false;
  34. var
  35.   heaporg,heapptr,heapend,heaperror,freelist : pointer;
  36.  
  37. {
  38.   $Log: heaph.inc,v $
  39.   Revision 1.5  1998/07/02 14:11:30  michael
  40.   Reinstated the heapsize function.
  41.  
  42.   Revision 1.3  1998/05/12 10:42:45  peter
  43.     * moved getopts to inc/, all supported OS's need argc,argv exported
  44.     + strpas, strlen are now exported in the systemunit
  45.     * removed logs
  46.     * removed $ifdef ver_above
  47.  
  48.   Revision 1.2  1998/04/21 10:23:15  peter
  49.     + heapblocks
  50. }
  51.